home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ASME's Mechanical Engine…ing Toolkit 1997 December
/
ASME's Mechanical Engineering Toolkit 1997 December.iso
/
basic
/
qtool4.lzh
/
CUR.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-05-22
|
3KB
|
111 lines
rem $linesize:132
rem $title:'CUR - edit current program compile options'
rem $subtitle:'Development tool for Application Engineer'
' Include the COMMON values
rem $include:'AESHARED.BAS'
aa$=command$
call ctrl.trim(aa$)
call color.init("appcolor.ctl")
open "r",1,"CUR.OPT",8
field #1,8 as fl$
get #1,1
if aa$="" then
fr$=fl$
cls
call centre.text("CUR - current program compilation options.",1%)
call centre.text("(C)opyright R.Barrow 1986,1987",2%)
call qprint(string$(70%,45%),4%,4%)
call qprint("cu.bat - compile & link to APENGINE",5%,4%)
call qprint("cn.bat - compile & link stand alone",6%,4%)
call qprint("cnx.bat - compile & line to APENGINE with /x",7%,4%)
call qprint("e.bat - edit program under QuickBasic",8%,4%)
call qprint("ew.bat - edit program under WordStar",9%,4%)
call qprint("cs.bat - compile as a sub-routine (to add to APENGINE)",10%,4%)
call qprint("pr.bat - pretty print the file",11%,4%)
call qprint("rr.bat - replace the subroutine in APENGINE",12%,4%)
call qprint("ec.bat - compile on e:",13%,4%)
call qprint(string$(70%,45%),15%,4%)
dialog$(1)="Modify the current program name"
dialog$(2)="The above .bat files will be created"
dialog$(3)="Use only legal file names."
dialog$(4)="Press ENTER when complete"
call Dialog.Two(fr$,8%,dummy$,0%)
locate 23,1,0
else
fr$=aa$
end if
call ctrl.trim(fr$)
lset fl$=fr$
put #1,1
close 1
open "o",1,"cu.bat"
print #1,"qb "+fr$+" /o /g /e /q ;"
print #1,"link "+fr$+","+fr$+","+fr$+".map,e:advbas+e:apengine /SEGMENTS:256 ;"
close 1
open "o",1,"eee.bat"
print #1,"qb "+fr$+" /l advbas.exe"
close 1
open "o",1,"ec.bat"
print #1,"copy "+fr$+".bas e:"
print #1,"e:"
print #1,"qb "+fr$+" /o /g /e /q;"
print #1,"link "+fr$+","+fr$+","+fr$+".map,e:advbas+e:apengine /SEGMENTS:256 ;"
print #1,"copy "+fr$+".exe c:"
print #1,"c:"
close 1
open "o",1,"cn.bat"
print #1,"qb "+fr$+" /o /g /e /q;"
print #1,"link "+fr$+";"
close 1
open "o",1,"cnx.bat"
print #1,"qb "+fr$+" /o /g /e /x /q;"
print #1,"link "+fr$+" ,"+fr$+","+fr$+".map,advbas+e:apengine /SEGMENTS:256 ;"
close 1
open "o",1,"e.bat"
print #1,"q "+fr$
close 1
open "o",1,"ew.bat"
print #1,"edt "+fr$+".bas"
close 1
open "o",1,"cs.bat"
print #1,"qb "+fr$+" /o /g /e /q;"
close 1
open "o",1,"pr.bat"
print #1,"aeprint "+fr$+" pretty"
close 1
open "o",1,"cs2.bat"
print #1,"qb "+fr$+" /o /g /e /q;"
print #1,"rep "+fr$
close 1
open "o",1,"rr.bat"
print #1,"rep "+fr$
close 1
end